home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 9 / Night Owl CD-ROM (NOPV9) (Night Owl Publisher) (1993).ISO / 011a / cs_wtr01.zip / WEATHER.MAC
Text File  |  1993-02-05  |  3KB  |  107 lines
  1.  *---*  Call the National Weather Service.
  2.  *---*  This macro saves to a disk file and to the printer.
  3.  
  4.                 ...Please Stand by...
  5.                    just received
  6.  
  7.   {:n|}  {send ~n|}          {retu}
  8.  
  9.  {:wtr}  {sete alm}
  10.          {exec-N xeq prstring 018 027 077 027 120 000 027 108 008 027 048}
  11.          {exec-N f:}
  12.          {exec-N cd \futil}
  13.          {exec-N yow >prn}
  14.          {exec-N xeq prstring 010 010 010}
  15.          {exec-N d:}
  16.          {paus 2}
  17.          {send |}
  18.          {paus 2}
  19.          {setl 60,abt,5,|}
  20.          {send |}
  21.          {look er Case}
  22.          {send y|}
  23.          {setl 120,abt,15,|}
  24.  {:ec0}  {push}
  25.          {golo n|,N,NS?}
  26.          {look FIRST} {pops}
  27. !        {send Chuck|}
  28.          {look Last}
  29. !        {send Seyboldt|}
  30.          {look echo)?}
  31.          {send %_pas|}
  32.          {look Function}
  33.          {send P|}
  34.          {setl 15,abt,5,|}
  35.          {look PUBLIC <}
  36.          {send 1|}
  37.          {look FORECAST}
  38.          {clea}
  39.          {capt y,%dldir%\report.wtr}
  40.          {prin y}
  41.          {exec-N echo ******************************* >> %dldir%\report.wtr}
  42.          {exec-N echo WEATHER FOR   %_dat %_tim       >> %dldir%\report.wtr}
  43.          {exec-N echo ******************************* >> %dldir%\report.wtr}
  44.          {setl 120,abt,5,|}
  45.           look TIDES
  46. 10/22/92 {look to continue ?}
  47.          {clea}
  48.          {capt n}
  49.          {prin n}
  50.          {paus 4}
  51.          {send |}
  52.          {setl 10,abt,5,|}
  53.          {look PUBLIC <}
  54.          {send 7|}
  55.          {look SUMMARY}
  56.          {clea}
  57.          {capt y,%dldir%\report.wtr} {printlog y}
  58.          {exec-N echo ======---------------------====== >> %dldir%\report.wtr}
  59.          {exec-N echo         STATE WEATHER SUMMARY     >> %dldir%\report.wtr}
  60.          {exec-N echo ======---------------------====== >> %dldir%\report.wtr}
  61.          {setl 120,abt,5,|}
  62.          {look Enter to continue}
  63.          {clea}
  64.          {capt n,%savedir\%_mon%%_day.cap}
  65.          {prin n}
  66.          {paus 2}
  67.          {send |}
  68.          {setl 20,abt,5,|}
  69.          {look PUBLIC <}
  70.          {send |}
  71.          {goto ewr}
  72.          {look FUNCTION}
  73.          {send A|}
  74.          {look Almanac <}
  75.          {Send 8|}
  76.          {look SNOW...}
  77.          {look .^m}
  78.          {clea}
  79.          {capt y,%dldir%\almanac.wtr}
  80.          {prin y}
  81.          {exec-N echo ************************************* >> %dldir%\almanac.wtr}
  82.          {exec-N echo ALMANAC ENTRY FOR   %_dat %_tim       >> %dldir%\almanac.wtr}
  83.          {exec-N echo ************************************* >> %dldir%\almanac.wtr}
  84.          {setl 120,abt,10,|}
  85.          {look  continue ?}
  86.          {clea}
  87.          {capt n,savedir\%_mon%%_day.cap}
  88.          {prin n}
  89.          {send |}
  90.          {setl 10,abt,5,|}
  91.          {look ALMANAC <}
  92.          {send |}
  93.  {:ewr}  {look Function}
  94.          {send G|}
  95.          {look Comment}
  96.          {send N|}
  97.          {look NO CARRIER}
  98.          {hang y}
  99.          {exec-N xeq prstring 012}
  100.          {macl %_mac,aln}
  101.  {:abt}  {send |~~~|~~~~~~~G|~~~~~N|}
  102.          {clea}
  103.          {capt n,savedir\%_mon%%_day.cap}
  104.          {prin n}
  105.          {hang y}
  106.  {:alm}  {macl %_mac,aln}
  107.